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STANDARD MUMPS POCKET GUIDE 


INTRODUCTION 


This booklet provides a concise summary of Standard MUMPS, and 
includes explanatory text and programming examples. This guide is 
therefore intended to provide an introduction to MUMPS programming for 
people not previously aware of the scope of MUMPS. Furthermore it 
provides a useful summary of Standard MUMPS for people currently 
Programming in one of the several nonstandard MUMPS dialects, thereby 
indicating which features of their current dialect they should avoid in 


order to facilitate the later translation of their applications into 
Standard MUMPS. 


This document summarizes all the commands, functions, operators and 
other features of Standard MUMPS and is believed to conform to Standard 
MUMPS as defined by the MUMPS Development Committee and the National 
Bureau of Standards. However, the reader is strongly cautioned against 
using this Pocket Guide as a substitute for the official MDC/ANSI 
description of Standard MUMPS. For details of the Standard, consult: 
O'Neill, J. T., Editor, MUMPS Language Standard, ANSI X11.1-1977, 
published by the MUMPS Development Committee, 1977; or Conway, M. Ee, 
MUMPS Programmers’ Reference Manual, published by the MUMPS Development 
Committee, 1976. For instruction in advanced programming techniques, the 
following is recommended: Beckley, R. E., and Bridger, D. A., Advanced 
Mumps Techniques, published by MUG, 1977. 


To obtain copies or price lists of the MUG and MDC documents or to 
obtain additional copies of this Guide, contact Mr. Richard Zapolin, 
MUMPS User's Group, MITRE Corporation, P. 0. Box 208, Bedford, 
Massachusetts 01730. 


Throughout this handbook, certain portions of the text are enclosed 
in brackets. This convention is used to denote certain limitations which 
are imposed not by the definition of Standard MUMPS, but by a concern for 
the portability of MUMPS programs from one implementation to another. 


These Portability Requirements should be met in order to facilitate this 
interchange. 
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DATA_TYPES AND VALUES 


The first thing to consider is the types of data which may be 
manipulated in Standard MUMPS. The situation is quite simple because 
there is only one data type: the variable-length character string, which 
may consist of any of the 128 ASCII codes. [To insure portability, the 
current limit on MUMPS string length is 255 ghaceaterscd 


A number is regarded merely as a special case of a string, and MUMPS 
contains a well defined rule for interpreting any string as a number. A 
numeric value (that is, the value of a number) may contain a decimal 
fraction. However, some arithmetic operations produce an integer value, 
which is a special case of a numeric value. Accordingly, MUMPS also 
contains a rule for interpreting any number (and, by inference, any 
string) as an integer. Relational and logical operations (see below) 
produce a special numeric value called a truth value. There are two 
truth values: the integer 0, which denotes "false"; and the integer 1, 
which denotes "true". The interpretation rules are discussed under 
OPERATORS, below. 


[to insure portability the value of a number should have no more than 
nine significant digits. The absolute value should lie between 1025 
and 10725, or be zero.) 


VARIABLES 


A variable is an entity whose value may be changed. There are three 
variable types: local variables, each of which is unique to a user and 
whose value may be inspected and/or changed only by that user; global 
variables, each of which may have its value inspected and/or changed by 
any authorized user; and special variables, whose values are changed by 
the MUMPS system and cannot be changed directly by a user. 


Each variable is referenced by a variable name. Local and global 
variable names begin with either "2%" or an alphabetic. Subsequent 
characters may be any of the alphabetics or any of the ten-digits. Names 
may be any length. Tro insure portability, however, names should be 
distinguishable by their first eight characters and should not contain 
lower-case alphabetics.] A global variable name is designated by a 
leading caret (A) symbol, as in‘ MUG. A special variable name is denoted 
by a leading dollar ($) symbol, as in $TEST. Special variables are 
discussed in a section below. 


Local and global variables may be subscripted in order to facilitate 
the grouping of values into sets (called arrays). For example, it might 
be more convenient to replace the variable names GAME, SET, and MATCH by 
A(1), and A(2), and A(3) respectively. In this case, only one level of 
subscripting is used, but more can be used if desired. For example, 
A(1,4,13) has three levels of subscripting. Both A(1) and A(1,4,13) are 
said to be descendants of A, and A(1,4,13) is also a descendant of A(1). 


Variables can have any number of subscripts. Subscripts may be any 
of the allowed non-negative integers (that is, from 0 to 999999999), 


A naked global reference is a shorthand syntax for specifying a 
global variable by omitting the variable name and possibly some of the 
subscripts. The first subscript in the subscript list of a naked global 
reference implicitly refers to the last subscript level of the most 
recent global reference. Thus, if a reference has been made to 4x(1), a 
subsequent naked reference to 4(2,3) would access the value of 4xX(2,3). 
Note that "last global reference" includes any reference to any global. 
Use of the $NEXT function is particularly troublesome as it may leave the 


naked pointer with an unexpected value. (See $NEXT, below, for 
additional discussion). 


LITERALS 


A literal has a constant value and is interpreted directly. 
are both numeric and string literals. A numeric literal has a mantissa 
optionally followed by the letter "E" and an exponent (e.g. 0.34, 10E5, 
1,2E-7, -1456). A string literal consists of a set of characters 
enclosed in quotation marks. The empty string is represented by two 
adjacent quotes (""). If quotes are to be embedded within a string, each 
must be represented by two adjacent quotes ("THE "KNOWN" VALUE"). Such 
embedded quotes are counted as one character, not two, when determining 
string length. A string literal consists of zero or more of the 95 ASCII 


graphics enclosed in quotes, whereas a string value may contain any of 
the 128 ASCII characters. 


There 


OPERATORS 


The operators in Standard MUMPS are grouped into seven types, as 
follows: 


Arithmetic Unary Operators 
Arithmetic Binary Operators 
Arithmetic Relational Operators 
String Binary Operators 

String Relational Operators 
Logical Operators 

Indirection 


These groups differ in the interpretations made of their arguments. 
Each of the arithmetic operators takes the numeric interpretation of its 
arguments before performing the indicated operation. This involves 
taking the leftmost portion of the string which is either exponential 
(e.g. 86E5), decimal (-182.45) or integral (1964) in form. If no such 
form begins the string, the numeric interpretation is zero. The integer 
interpretation of any value is formed from the numeric interpretation by 
dropping any fraction. The logical operators interpret their arguments 
by first forming the numeric interpretation, if the result is 0 the 
interpretation is "false", otherwise, it is "true". The string operators 


require no special interpretation of their arguments since all data in 
Standard MUMPS are strings. 


INTERPRETATION 
ee 


STRING NUMERIC INTEGER TRUTH VALUE 
810" 810 810 1 
"98 POUNDS" 98 98 1 
(the empty string) 0 0 0 
mH gg 0 0 0 
"8649" 86 86 1 
'“PAGE 10" 0 0 0 
"84M -8.4 -8 1 
"86E-1" 8.6 8 1 
Woaagtt -9 -9 1 
Hon 0 0 0 


Each of the Arithmetic, String and Logical operators is described, 
along with examples, in the table on the following pages. Indirection, 
although formally an operator, is somewhat unique in its use, and is 
therefore discussed below in a separate section. 


INDIRECTION 


Indirection allows data values to be interpreted as MUMPS code. 
Indirection is denoted by the character @ followed by an expression. The 
value of the expression is substituted for the occurrence of indirection 
before the rest of the line is interpreted. The substitution is 
temporary, taking place each time the instance of indirection is 
encountered. This allows the same segment of MUMPS code to be executed 
repeatedly with differing values of the expression yielding different 
results. Furthermore, indirection can be nested, giving even greater 
flexibility. There are three basic types of indirection: 


In Argument Indirection the indirection occurs in place of a command 
argument, and the value must be one or more complete command arguments. 


ex. S X(1)="STATE(I)",X(2)="CAPITAL(I)",X(3)="POPUL(1)" 
F I91:1:50 F J=l:1:3 W $P(X(J),"(",1),": " R @X(J),! 


treads the name, capital and population of each of the fifty states an 
stores them in arrays STATE, CAPITAL and POPUL. 


ex. § PRINTER=3, TERMINAL=0 
R 1,"DEVICE TYPE? ",DEV OPEN @DEV 


In this example, the user $enters "PRINTER" or "TERMINAL" and the proper 
device will be opened. 


ex. S USERCODE="B" 
S @("AA"_USERCODE_"=99") 


In Name Indirection the indirection occurs in any context where a 
named variable can occur and the value of the indirection must be a 
complete variable name, possibly including subscripts. 
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ex. S AGE=40,RACE="WHITE",SEX=""FEMALE" 
R !,"WHAT VARIABLE WOULD YOU LIKE TO SEE? ",X 
Wo!,X," HAS THE VALUE ",@X 


yields RACE HAS THE VALUE WHITE if the user answers the question with 
"RACE". 


In Pattern Indirection the indirection occurs in place of a pattern, 
and the value must be a pattern. 


ex. S X(L)S"1"'S""IN.N',YCL)="MONEY" 
S X(2)="5U.U",¥(2)="WORD" 
FOR I=1,2 IF STRING?@X(L) WRITE !,Y(L) Q 


yields "DOLLARS" if STRING is one or more digits preceded by a dollar 
sign, or "WORD" if STRING is five or more upper-case letters. 


Note that the XECUTE command (see helow) also provides a means of 
performing indirection. 


EXPRESSIONS 


The simplest expression in MUMPS is a variable, a string literal, a 
numeric constant, or a function (functions are discussed in a section 
below). Examples of each of these four types of expression are 
respectively: 


VARTABLE 
"LITERAL" 
45.73 
SLENGTH (XYZ) 


Such simple expressions are called atomic expressions. More complicated 
expressions can be built up by linking a number of atomic expressions by 
means of the arithmetic and other types of operator. For example: 


suM/TOT 
SEX=""MALE" 
"BOY" "HOOD" 


All MUMPS expressions are evaluated from left to right. There is a 
hierarchy of operators: umary operators are executed before indirection, 
which is executed before binary and relational operators. There is, 
however, no hierarchy among binary and relational operators. Parentheses 
can be used to modify the order of evaluation. 


COMMANDS 


A command defines an action to be taken. A command is usually (but 
not always) followed by an argument (or a series of arguments separated 
by commas) upon which the command acts. Most command words may be 
abbreviated to their initial letter, or may be fully spelled out. Note 
that partial abbreviations are not allowed. Thus, "B" is a legal 
abbreviation for "BREAK" but "BR" is not. All unspecified initial 
letters are reserved for future use. 
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A command and its arguments in a line of MUMPS code are separated 
from the next command (if any) on that line by a single space. Also, a 
command word is separated from its arguments by a single space. Note 
that this means an argumentless command is separated from the next 
command by exactly two spaces. In general, for any command Z with 
arguments A and B, Z A,B is equivalent to Z A Z B. Comments can be 
appended to a line by placing a semicolon in any command position (i.e., 
wherever a command could go). The remainder of the line is treated as a 
comment and is not executed. 


TIMEOUTS ON COMMANDS 


A Cimeout may be used with arguments of the LOCK, OPEN, and READ 
commands to specify the maximum time during which MUMPS will await the 
completion of the associated operation. If a timeout is to be used, it 
is specified by following an argument of any of these commands with a 
colon and then an expression whose value is an integer. For example: 


READ ANSWER: TIME 


will wait for up to TIME seconds to obtain ANSWER. If the numeric value 
following the colon is positive, that value specifies the maximum number 
of seconds waited for the completion of the operation. If the numeric 
value following the colon is zero or negative, execution continues 
without delay. Note that if a LOCK, OPEN, or READ command with a timeout 
specification is satisfied before the time runs out, the special variable 
STEST (discussed below) is set to 1; otherwise $TEST is set to 0. If no 
timeout is specified, $T is not affected and execution of the command 
proceeds after the condition associated with the command (for example, 
termination of the input message for the READ command) in satisfied. 
Therefore, execution can be suspended indefinitely. 


POST-CONDITIONALS ON COMMANDS AND ARGUMENTS 


The IF command may be used to place a condition upon whether or not 
the remainder of the line following the IF command is executed. 
Alternatively, an individual condition may be placed upon most commands 
by appending a coton and then a truth-valued expression to a command 


word. This may be done for all commands except ELSE, FOR, and IF. For 
example, 


SET:A®3 NEXT#*47 GOTO LINE 


means that NEXT has the value of 47 assigned only if A has the value 3, 
but the GOTO cormand is always executed. The first command is said to be 
post-conditionalized. It is executed only if the expression immediately 
following the command and colon is true. Note that unlike the IF 
command, only the post-conditionalized command is affected; all commands 
to its right are still executed as they would be normally. Also, the 
value of STEST is not affected. 


The commands DO, GOTO, and XECUTE permit post-conditionalization of 
arguments and/or post-conditionalization of the command itself. This 
means that an argument of any of these commands may be followed by a 
colon and then a truth-valued expresssion. If the expression is true, 
that argument is used. Otherwise, it is not. For example: 
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DO FIND:A=100,NEXT 


will execute the code beginning at the line labeled FIND only if A equals 
100, but will always execute the code beginning at the line labeled 

NEXT. Thus, only an argument which has been post-conditionalized is 
affected. All arguments and further command-argument pairs to the right 
of a post-conditionalized argument are executed as they would be normally. 


The following example illustrates post-conditionalization of both 
command and argument: 


DO:B="0K"" FIND:A=3,NEXT 
FUNCTIONS 


Each function is designated by an initial character of "S$", and has a 
unique name which may be abbreviated to its initial letter. This 
specification of the function is followed by one or more expressions in 
parentheses. The first expression generally signifies the string or 
number which is to be examined or manipulated. Any subsequent 
expressions qualify the function's effect. All unspecified initial 
letters are reserved for future use. 


Some functions restrict the type of expressions that can be used. 
The following codes will be used to indicate such restrictions. In each 


case "n' represented the position in which the expression is used. 


En general (unrestricted) expressions 
In Integer-valued expressions 

Tn Truth-valued expressions 

Nn Numeric valued expressions 

L Labels 

VN Variable names 


SPECIAL VARIABLES 


Each special variable is denoted by the initial character of "$" and 
has a unique name which may be abbreviated to its initial letter. The 
value of a special variable may be used as part of any general 
expression. Note, however, that a user is not permitted to assign a 
value to any special variable. All unspecified initial letters are 
reserved for future use. 


Special Variable Explanation 


$HOROLOG S$HOROLOG provides the date and time in a single 
two-part string. The two parts are separated by 
a comma. The first part is the number of days 
since 31 December 1840, and the second part is 
the number of seconds since midnight. "0,0" is 
the first second of 31 December 1840. 


$10 $10 provides the unique identification of the 
current input/output device. 
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$JOB 


Each executing MUMPS process has its own unique 
job number, a positive integer, which is the 
value of $JOB. 


SSTORAGE $STORAGE is the number of unused characters 


remaining in the user's partition. 


STEST STEST contains the last computed truth value. 


SX 


$Y 


$2 


The value is set by the execution of the most 
recent LF command containing an argument, or by 
an OPEN, LOCK, or READ with a timeout. 


$X is the column or horizontal position at which 
the carriage (for a printing device) or the 
cursor (for a video terminal) lies for the 
current device. The first column is defined as 
column 0, the second column as column 1, and so 
on. Therefore, $X is 0 at the start of a line. 
After the first character in a line has been 
written, $X is l. $X is initialized to zero by 
carriage return, and incremented by 1 for 
graphics. 


$Y is the vertical position on the current 
device. The first line is defined as line 0, the 
second as line 1, and so on. $Y is initialized 
to zero by a form feed, and incremented by 1 for 
each line feed. 


Each nonstandard special variable should begin 
with "Sz". 


FORMAT CONTROL 


The following characters are used for format control during data 


display: 


4 


¢ 


specifies tab (right shift) to the column specified by the integer 
value of the expression following the question mark. For example, ?X 
tabs to column X. Remember (see $X above) that MUMPS regards the 
first column as column 0, the second as column 1, and so on. If X $X 
no shift takes place. 


specifies carriage-return and line-feed, or other similar new-line 
operation. 


specifies a form-feed or new page, or similar operation. 


LINES AND ROUTINES 


A routine in MUMPS consists of an ordered series of lines. Lines are 


NOT free-format. Each consists of a line-start indicator (specified by 
the implementor), preceded by an optional line label, followed by zero or 
more commands and associated arguments, followed by an optional comment. 
Multiple commands in a line are separated from each other by exactly one 
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space, except that argumentless commands are separated from subsequent 
commands by exactly two spaces (where one blank indicates a null 
argument). Comments may be inserted into a line by placing a semicolon 
after the last argument or argumentless command. The remainder of the 
line is treated as a comment and is not executed. 


A line label may begin with an alphabetic or with the "2%" character. 
The subsequent characters may be any of the 26 alphabetics or any of the 
ten numeric digits. (To promote program portability alphabetic 
characters in labels should be upper-case only). Alternatively, the 
label may be entirely numeric digits characters (i.e., an integer). The 
label may be any length, but only the first eight characters are 
distinguished. Labels should be unique within a routine. 


[For reasons of program portability, the length of a line of stored 
MUMPS code is currently limited to 255 characters, including the label, 
line start indicator, code and comments. There is no explicit limit on 
the number of lines in a MUMPS routine, but the routine including all 


local variables and temporary result storage should not exceed 4,000 
characters.] 


Note that the grouping of multiple commands into a single line is 
more than simple convenience. Commands such as FOR, IF, and ELSE treat 
the line as a meaningful unit. 
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The character notation is that used in ANS X3.4-1968. 


APPENDIX I: 


Table of ASCII Characters 


The code values 


are those which appear as values of the $ASCII function and as arguments 
of the SCHAR function. 


Code 


WOMWNAUSEWNHO 


Character 


NUL 
SOH 
STX 
ETX 
EOT 
ENQ 
ACK 
BEL 
BS 

HT 


+ evn ONO 


eV to Awe es CDRIYDASWNKON: 
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PH FAN KK ES CHNAOVOZTEMOAGHTOAWMIONBP>H 


Character 


LmmmNS KE CCM MONDVOD RB RKP Ke THM An oD 


DEL 


APPENDIX II: Sample Routine 


. The program which follows was written by Dr. Joan Zimmerman to 
illustrate many of the features of a Standard MUMPS routine. Note that 
the Line Start Indicator is represented in this printout by tabulation to 


column 6. 


20x2 
START 


RUN 


DIST 


TIME 


ACCUM 


:0DS & ZIM)28 MAR 79;COOPER'S AEROBICS POINT SYSTEM (1970) 


pies SET SUM-0 

READ “DID YOU RUN OR WALK TODAY? “,ANS IF ANS**¥" DO RUN 
READ “DID YCU SWIM TODAY? “,ANS IF ANS*"Y* DO SWIM 

READ "DID YOU BICYCLE TODAY? “,ANS IF ANS#"¥" DO CYCLE 
WALT 


SET MAX*10@,AVERACE=2 00 DIST IF MILES=0 QUIT 

SET MIN=3.7,AVERACE*® DO TIME 

TF (MILESC2)6(T'C20) SET POINTS=0 

ELSE SET POINTS#SSELECT (TCG. 5:6, TEAS, T1024, TED 213, TELM S62, TEAMED Dt 5) MILE 
Do ACCUM 

COTO RUN 


iCODE TO BE WRITTEN 
QuIT 


SET MAX#100C,AVERACE=9 DC DIST IF MILES=" QUIT 

SET MIN@.5,AVERACE*4 DO TIME 

IF (PILES<S)6(T'<6) SET POINTS=0 

ELSE SCT POINTS#SSELECT(TC3:1.5,TK411, TCH: oS, 12622) SMILES 
DO ACCUM 

GOTO CYCLE 


READ “NUMBER OF MILES COMPLETED: *,MILES 

IF (MILESCO) 1 (MILES>MAX) WRITE “MOST UNLIKELY ... TRY ACAIN",! GOTO DIST 
IF MILES>AVERACE WRITE * VERY GOOD",1 

QuIT 


READ “hOW MANY MINUTES DID THAT TAKE? *,TIM 

1F TIM*>P WRITE “YOU CAN'T DO THINCS THAT QUICKEN? 5 1 GOTO TIME 

SET TeTIM/MILES IF TCAVERAGE WRITE * THAT'S FASTI™, 1 

IF TCMIN WRITE “ACTUALLY, THAT'S UNBELIEVABLE ... Tiny ACAIN",1 COTO TIME 
Quit 


SET SUM*SUM+POINTS 

WRITE "YOU JUST ADDED *,POINTS,” POINT* IF PCINTS'#} WRITE “S* 
WRITE " AND YOUR TOTAL IS *,SUM,1,“ENTER MORE*,(1 

QuIT 
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APPENDIX III: IMPLEMENTATION - SPECIFIC FEATURES. 


SPACE IS PROVIDED BELOW FOR VENDORS OR USERS TO DEFINE 
IMPLEMENTATION-SPECIFIC FEATURES OF THEIR SYSTEM. 


Line Start Indicator 
End of Line 
Read (Response) Terminator 


Commands (begin with Z) 


Functions (begin with $Z) 


Special Variables (begin with $2) 


Arguments of BREAK command 


VIEW Command 


Device Specifiers 


Device Parameters 
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